Super League/Super League.iso/TELFNICA/INFO/INDICE.DIR/00011.ls

Text File | 1997-04-23 | 4.5 KB | 231 lines

on boton
  repeat with h = 46 down to 5
    puppetSprite(h, 1)
    if rollOver(h) = 1 then
      set the castNum of sprite h to h + 25
    end if
    if rollOver(h) = 0 then
      puppetSprite(h, 0)
    end if
  end repeat
end

on boton2
  repeat with h = 11 down to 5
    puppetSprite(h, 1)
    if rollOver(h) = 1 then
      set the castNum of sprite h to h + 25
    end if
    if rollOver(h) = 0 then
      puppetSprite(h, 0)
    end if
  end repeat
  repeat with n = 46 down to 25
    puppetSprite(n, 1)
    if rollOver(n) = 1 then
      set the castNum of sprite n to n + 25
    end if
    if rollOver(n) = 0 then
      puppetSprite(n, 0)
    end if
  end repeat
  repeat with g = 20 down to 12
    puppetSprite(g, 1)
    if rollOver(g) = 1 then
      set the castNum of sprite g to g + 63
    end if
    if rollOver(g) = 0 then
      puppetSprite(g, 0)
    end if
  end repeat
end

on cambiar
  if the clickOn = 5 then
    go(1, "menu.dir")
  end if
  if the clickOn = 6 then
    go(1, "historia.dir")
  end if
  if the clickOn = 7 then
    go(1, "grupo.dir")
  end if
  if the clickOn = 8 then
    go(1, "vision.dir")
  end if
  if the clickOn = 9 then
    go(1, "sociedad.dir")
  end if
  if the clickOn = 12 then
    go(7, "historia.dir")
  end if
  if the clickOn = 13 then
    go(15, "historia.dir")
  end if
  if the clickOn = 14 then
    go(29, "historia.dir")
  end if
  if the clickOn = 15 then
    go(44, "historia.dir")
  end if
  if the clickOn = 16 then
    go(54, "historia.dir")
  end if
  if the clickOn = 17 then
    go(64, "historia.dir")
  end if
  if the clickOn = 18 then
    go(74, "historia.dir")
  end if
  if the clickOn = 19 then
    go(89, "historia.dir")
  end if
  if the clickOn = 20 then
    go(99, "historia.dir")
  end if
  if the clickOn = 21 then
    go(129, "historia.dir")
  end if
  if the clickOn = 22 then
    go(139, "historia.dir")
  end if
  if the clickOn = 23 then
    go(153, "historia.dir")
  end if
  if the clickOn = 24 then
    go(168, "historia.dir")
  end if
  if the clickOn = 25 then
    go(1, "undia.dir")
  end if
  if the clickOn = 26 then
    go(1, "empresas.dir")
  end if
  if the clickOn = 27 then
    go(22, "empresas")
  end if
  if the clickOn = 28 then
    go(28, "empresas")
  end if
  if the clickOn = 29 then
    go(20, "empresas")
  end if
  if the clickOn = 30 then
    go(30, "empresas")
  end if
  if the clickOn = 32 then
    go(16, "empresas")
  end if
  if the clickOn = 33 then
    go(12, "empresas")
  end if
  if the clickOn = 34 then
    go(14, "empresas")
  end if
  if the clickOn = 35 then
    go(10, "empresas")
  end if
  if the clickOn = 36 then
    go(18, "empresas")
  end if
  if the clickOn = 37 then
    go(26, "empresas")
  end if
  if the clickOn = 38 then
    go(24, "empresas")
  end if
  if the clickOn = 39 then
    go(1, "catemp.dir")
  end if
  if the clickOn = 40 then
    go(1, "rdsi.dir")
  end if
  if the clickOn = 41 then
    go(1, "banda.dir")
  end if
  if the clickOn = 42 then
    go(1, "tele.dir")
  end if
  if the clickOn = 43 then
    go(1, "arco.dir")
  end if
  if the clickOn = 44 then
    go(1, "acciones.dir")
  end if
  if the clickOn = 45 then
    go(1, "plan.dir")
  end if
  if the clickOn = 46 then
    go(1, "catalogo.dir")
  end if
end

on cambiar2
  if the clickOn = 5 then
    go(1, "menu.dir")
  end if
  if the clickOn = 6 then
    go(1, "historia.dir")
  end if
  if the clickOn = 7 then
    go(1, "grupo.dir")
  end if
  if the clickOn = 8 then
    go(1, "vision.dir")
  end if
  if the clickOn = 9 then
    go(1, "sociedad.dir")
  end if
  if the clickOn = 12 then
    go(183, "historia.dir")
  end if
  if the clickOn = 13 then
    go(199, "historia.dir")
  end if
  if the clickOn = 14 then
    go(214, "historia.dir")
  end if
  if the clickOn = 15 then
    go(229, "historia.dir")
  end if
  if the clickOn = 16 then
    go(264, "historia.dir")
  end if
  if the clickOn = 17 then
    go(274, "historia.dir")
  end if
  if the clickOn = 18 then
    go(289, "historia.dir")
  end if
  if the clickOn = 19 then
    go(304, "historia.dir")
  end if
  if the clickOn = 20 then
    go(319, "historia.dir")
  end if
  if the clickOn = 39 then
    go(1, "catemp.dir")
  end if
  if the clickOn = 40 then
    go(1, "rdsi.dir")
  end if
  if the clickOn = 41 then
    go(1, "banda.dir")
  end if
  if the clickOn = 42 then
    go(1, "tele.dir")
  end if
  if the clickOn = 43 then
    go(1, "arco.dir")
  end if
  if the clickOn = 44 then
    go(1, "acciones.dir")
  end if
  if the clickOn = 45 then
    go(1, "plan.dir")
  end if
  if the clickOn = 46 then
    go(1, "catalogo.dir")
  end if
end